home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / JUNO Librarian 1.0.3 / Sample Scripts / 31 Change VCA ENV⁄GATE < prev    next >
Encoding:
Text File  |  1994-01-28  |  386 b   |  17 lines  |  [TEXT/ToyS]
  1. tell application "JUNO Librarian"
  2.     activate -- if needed
  3.     set x to Parameter 17 of Window "Sample"
  4.     set y to (round (x ÷ 4) rounding down)
  5.     set y to y * 4
  6.     set z to x - y -- ENV, PWM switch
  7.     set y to (round (y ÷ 8) rounding down)
  8.     set y to y * 8
  9.     set x to y + z
  10.     
  11.     -- select 1 of 2
  12.     --    set x to x + 0 -- ENV
  13.     set x to x + 4 -- GATE
  14.     
  15.     copy x to Parameter 17 of Window "Sample"
  16. end tell
  17.